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Unfortunate coincidences can cause problems as 


Wilf Hey discovers. He also demonstrates how to 
glimpse useful system constants and display a board 
for use in logic and strategy games, and provides a 
problem based on the world’s simplest computer. 


few years ago my wife Barbie and I were invited to Sunday 200 PRINT “ on this system.” 
lunch with a family whose adult daughter we knew, 210 PRINT “There is “; 
although we had not met them. The daughter had given us 220 IF COPR = 0 THEN PRINT “no”; ELSE PRINT 


the telephone number and told us to ring when we reached the near- ea 


est underground station, and her father would come to pick us up. 230 PRINT “ coprocessor present.” 
We arrived at the appointed station, and I sought out a public 240 PRINT “DMA channel processing is “; 
telephone. I dialled the number written on the slip of paper, and 250 IF DMA = 0 THEN PRINT “not “; 
when my call was answered I enquired ‘Mr Williams?’. The man at 260 PRINT “available.” 
the other end of the telephone admitted this identity, so I said ‘We 270 PRINT “There “; 
are at the station, waiting to be picked up by you.’ 280 IF RS232 = 0 THEN PRINT “are no RS232 
“Who are you?’ he asked; naturally I replied ‘the Heys: we are ports.” 
your daughter’s friends, coming to lunch’. This caused commotion 290 IF RS232 = 1 THEN PRINT “is one RS232 
and apparent recriminations as he covered the mouthpiece and port.” 
called for his daughter. 300 IF RS232 > 1 THEN PRINT “are”; RS232; 
When we compared notes, we found that this was a different "RS232 ports.” 
Mr Williams — whose telephone number differed from the other by 310 IF JOYS = 0 THEN PRINT “No “; ELSE PRINT 
only one digit; I had misdialled. a ay 
If I had not discovered it previously, through many years of 320 PRINT “joystick is present.” 
debugging computer programs, this would have taught me a valu- S30 "PRINT- there; 
able lesson, and that was: never underestimate the possibility of 340 IF PTRS = 0 THEN PRINT “are no printers.” 
perverse coincidence. 350 IF PTRS = 1 THEN PRINT “is one printer.” 
360 IF PTRS >. 1 THEN PRINT “are”; PTRS; 
GLIMPSING SYSTEM CONSTANTS “printers.” 
Paul Reeve of Corby writes asking about useful PEEKs that can tell 
his Basic program more about the system upon which it is running. The two bytes (&H40:&H10 and &H40 : &H11) consulted in these 


There are lots of facts you can glean simply through using the 
PEEK command and a few mathematical functions; the simplest are 
the following (please note: for space reasons, some of the following 
code has been printed over more than one line)... 


100 DEF SEG=&H40 

110 DKTS = (PEEK(&H10) AND 1) * ((PEEK(&H10) AND 
192) / 64 + 1) 

120 COPR = (PEEK(&H10) AND 2) / 2 

130 DMA = PEEK(&H11) AND &H1 

140 RS232= (PEEK(&H11) AND 14) / 2 

150 JOYS = (PEEK(&H11) AND 16) / 16 

160 PTRS = (PEEK(&H11) AND 192) / 64 

170 CLS 

180 PRINT “There”; 

185 IF DKTS = 0 THEN PRINT “are no diskettes”; 

190 IF DKTS = 1 THEN PRINT “is one diskette”; 

195 IF DKTS > 1 THEN PRINT “are “; DKTS; 


" diskettes” 
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lines contain a lot of information: when you execute this code you 
will end up with the following values in the variables: 


@ DKTS will contain the number of diskettes (0 to 4); but remem- 
ber that most single diskette systems will report 2 — because the 
single drive can be addressed as drive A or B (some systems, such 
as IBM PS/2s, may return a value of 1). 

The number of diskette drives is encoded in the top two bits of 
the byte at displacement &H10. The value 00 means one diskette 
(which will only be reported by systems such as the PS/2), 01 
means two diskettes (which may be two physical drives or one act- 
ing as A and B), 10 means three diskettes and 11 means four 
diskettes. The easiest way to get at this is to AND the byte with 192 
(to isolate the bits we want and make all the other bits zero), and 
then divide by 64 to make the result a simple 0, 1, 2 or 3. 

Then we must add one (making it 1, 2, 3 or 4). This will nor- 
mally give the right answer, but there is one slight complication: 
the lowest bit in &H10 tells whether or not there are any diskette 
drives at all: we should isolate this bit (the ‘AND 1’ does this) to 
get a value of zero (no diskettes) or one (some diskettes); if we 
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multiply this by the other calculated value we will end with the true 
number of drives — possibly zero. 

@ COPR will be 0 or 1 to indicate the absence or presence of a 
coprocessor. Here we only need to isolate the correct bit (with AND) 
and then divide to make it a simple 0 or 1. 

@ DMA will be 0 or | to indicate the absence or presence of a DMA 
channel. Here we only need to isolate the correct bit; since the low 
bit is the one used, no division is necessary. 

@ RS232 will contain the number of RS232 ports (0 to 7). Again 
we simply isolate the bits (by AND), then divide to make a simple 
number. 

@ JOYS will be 0 or 1 to indicate the absence or presence of a joy- 
stick. Again we isolate the bit (by AND), then divide to make a 
simple zero or one. 

@ PTRS will contain the number of parallel printers (0 to 3). We 
isolate the bits (by AND), then divide to make a simple number. 
Note the number returned usually corresponds to the number of 
parallel ports you have, whether there are printers attached or not. 


ON SCREEN 


Fred Selkirk of Manchester writes that he finds it difficult using 
QBasic to create screen displays for his programs. He knows all the 
instructions, but doesn’t know how to relate coordinates on a grid, 
for example, with variables in memory. 

All forms of Basic provide easy ways to show information on 
screen, but often you will need a bit of programming insight. So 
this month we will take a closer look at some of the techniques you 
can use in many programs. 

@ Our program, 

BOARD.BAS, 

demonstrates 
how you can cre- 
ate a grid for use 
in logic or strat- 
egy games - but 
it can also be 
adapted to dis- 
play messages. 


The following program, BOARD.BAS, demonstrates these 
techniques. It’s written with line numbers so that it will work in 
either GW-Basic or QBasic. We won’t look at the source code 
sequentially here, although it will probably help if you load the pro- 
gram which is included on the SuperDisk and print out the whole 
code listing. 


100 WIDTH 40 

110 DEFINT I-J 

120 KEY OFF 

130 DIM BOARD (24,24) 
140 DIM PREVX(17) 

150 DIM PREVy (17) 

160 REM 

170 REM - Draw Borders 
180 CLS 

1905 BOR I= 1°TO' 24 

200 LOCATE 1,1+16 
210 PRINT CHRS (64+I) ; 
220 LOCATE 141,16 

230 PRINT CHRS (64+I) ; 
240 NEXT 
250 GOSUB 1000 


Line 130 defines an array — also called a DIM (for dimension). 
Without this statement BOARD would be an ordinary variable. 
Remember, an array is a matrix of variables, akin to a wall of mes- 
sage pigeonholes you might find in an office. BOARD consists of 24 
rows by 24 columns; if you want to refer to a single variable within 
this array, you have to specify a single row and a single column. 


a 


S 
ye 


Note, an array needn’t be square like this one. Also note that 2 
the way we have defined this array there is also a row 0 and column 
0 — actually 25 rows by 25 columns. We are going to use only 24 in 
each direction, so we are wasting 49 pigeonholes by ignoring zero 
for each of the coordinates. Perversely, not all versions of Basic 
allow a zero value for a coordinate, so it is best to start at one, in 
case you have to transfer your code into another version of Basic 
(or other language). Note also that there are two other DIMs (lines 
140-150); these, as we will see later, are for a running history of 
keystrokes while using the program. 

Lines 190-240 form a loop structure where the letters from A to 
X are written to the screen, as a border for the board. Note that 
CHR$ (65) is [A] and CHRS$ (66) is [B]; so CHR$ (64+I) will pro- 
duce a letter of the alphabet corresponding to the value in the 
integer variable I. The LOCATE in line 200 positions the print start 
location to a point in row 1, starting at column 17, allowing a char- 
acter position for each of our column pigeonholes. Since a single 
column is about half as wide as a row is deep when the display is in 
80-column mode, line 100 changes the WIDTH to 40 columns to 
make the display more like a square. 


1000 REM 

1010 REM - Create the actual Board 

1020 FOR I=1 TO 24 

1030 FOR J..= 1 Dome 

1040 LOCATE 1+I, J+16 

1050 PRINT CHRS$(249 — 30 * BOARD(I,J) ); 
1060 NEXT 

1070 NEXT 

1080 RETURN 


GJ 


We have also built a subroutine (lines 1000-1080) that draws the 
board on screen. Line 1040 prepares the next print location to be 
the spot corresponding to BOARD (I,J), and line 1050 prints a 
character at that location. 

The characters are either a dot — when BOARD (I,J) is zero — 
or a square blob (when BOARD (I,J) is not zero). 

We made this a separate subroutine — instead of putting it at 
line 250, where it is called (with the GOSUB command) — because it 
may be necessary as we develop the program to have a means of 
renewing the whole display at some time — perhaps after clearing 
the BOARD array, or after reading pre-set values into it. 


2000 REM 

2010 REM - Subroutine: Read a keystroke 
2020 XS = INKEYS 

2030 IF LEN(X$)<>1 THEN 2020 

2040 IX = ASC(x$ 
2050 IF IX=27 THEN CLS : STOP 
2060 IF IX > 88 THEN IX = IX — 32 
2070 IF IX < 65 THEN 2020 

2080 IF IX > 88 THEN 2020 

2090 XS$=CHRS (IX) 

2100 IX = IX - 64 

2110 RETURN 


Here is the most challenging part of the code — but it should present 
you with no difficulties if you study it carefully. First of all, let’s 
look at the subroutine (lines 2000-2110); it continually reads, 
awaiting a keystroke; if there is no key — or a special two-digit key 
(if a [Ctrl] or [Alt] key is used, for example), the result is ignored 
(line 2030) and the routine is started again. If the key is [Esc] — 
which produces a value of 27 — the program is ended. For more 
details on these techniques refer back Correcting the 
Documentation, in PC PLUS issue 82, page 328. 

Line 2060 will convert lower case alphabetics to upper case, 
and lines 2070-2080 make sure that the keyed character was a letter 
in the range A (65) to X (88); otherwise it is ignored and the sub- 
routine is restarted. Line 2100 converts A to 1, B to 2 and so on, 
making it easier to relate to the BOARD array. 


450 LOCATE 3,1 
460 PRINT “Row? “; 
470 GOSUB 2000 
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/ 480 LOCATE 3,4 


AS OSPRENT 97) Fa: XS 

500 ROW = IX 

510 LOCATE 3,8 

520 PRINT “Col? sae 

530 GOSUB 2000 

540 LOCATE 3,11 

SS5ORPREND Ns Me: XS 

560 COL = IX 

570 BOARD(ROW,COL) = 1 — BOARD(ROW,COL) 
580 GOTO 250 


Lines 450-560 ask for a Row and a Col (both in the range A to 
X) to be keyed. Note that, after the user has keyed a Row letter via 
the subroutine (called at line 470), the character is put onto the 
screen in such a way that the [?] is overwritten with a space (line 
490). This way, the [?] indicates which coordinate (Row or Col) is 
being entered. 

INPUTS is a powerful command for garnering input keystrokes, 
but when you use it you surrender a fair amount of control over 
how the display looks. Here only a single keystroke is needed, so 
INKEY$ is more useful — it doesn’t require [Enter], for example. 

Line 570 is the only ‘logic’ of the program: armed with a Row 
and Col number, it goes into the array and changes a zero to one, or 
a one to zero; then 580 takes you back to redisplay the array on 
screen (without re-drawing the borders). 

As you execute this program, you'll see that the first time you 
type two grid co-ordinates (within the range A to X), you cause a 
square.to be printed at that grid location. Enter the same co-ordi- 
nate again, and the original dot is re-displayed. 


280 LOCATE 6,1 

290 IF ROW > O THEN PRINT “Previous:” 
300 FOR I = 16 TO 1 STEP -1 

310 PREVX (I+1) = PREVX(TI) 

320 PREVY (I+1) = PREVY(T) 

330 NEXT 

340 PREVX(1 ROW 

350 PREVY (1) CoOL 

BOOeROR, I = Ll TO.17 

370 LOCATE 1I+8,6 

380 IF PREVX(I) = 0 THEN 430 
390 PRINT CHRS (PREVX(I) + 64); 
400 LOCATE ,9 

410 PRINT CHRS (PREVY(I) + 64); 
420 NEXT 

430 LOCATE 3,13 

440 PRINT “ “ 


"oul 


This portion of code displays the history of the coordinates that 
have been entered, scrolling them down the screen as new ones are 
entered. Note line 440 is used to delete the COL letter last entered, 
in preparation for getting a new ROW and COL. This code stands 
separate from the rest, and strictly speaking it’s optional. 

You may notice that since you have changed only one value of 
the grid, you shouldn’t have to rewrite the whole board each time. 
You can save time by deleting line 580 and substituting the follow- 
ing new code: 


580 LOCATE 1+ROW, 16+COL 
590 PRINT CHR$(249 -— 30 * BOARD(I,IX) ); 
600 GOTO 280 


This involves a little trick: line 590 produces a value of 249 if the 
variable in the BOARD array has zero in it, but it produces a value of 
219 if the variable has a value of one in it. This trick is not always 
appropriate if a variable in the array can have several values. 

You may argue that the loop in lines 1000-1080 is now used 
only once — putting a value of 249 in every position. This may be 
so, but future changes to the program may put it to use. Also, it 
may look a little clearer but it isn't necessary to move IX to COL 
(line 560); it is simpler to change the two references in line 570 
from COL to IX (and in our revised version of line 580). Can you 
see other simplifications? @ 
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HOW A TURING MACHINE WORKS _| 


If current bit = 0 lf Current Bit =1 


Alan M Turing (born 1912, died 1953) was a pioneer of the computer — 
age, particularly in the field of artificial intelligence. In 1937 he devel- 
oped the theory of computable numbers and proved that there is no 
solution to ‘the halting problem’ by inventing the simplest possible 
computer — the Turing machine. : 

The halting problem is interesting; even though it may seem a lit- 
tle off track we'll be making use of some of the techniques explored 
here in future workshops. Turing demonstrated that every computer - 
and every program a computer can execute - can be simplified to a 
Turing machine. Such a device is imaginary, but can be built; it can 
even be simulated within a program in a simple language, or even 
with a pencil and paper. . 

A Turing machine is a computer that has a limited number of 
instructions; each instruction is called a state. At any single moment 
the machine can only look at one bit (either a 0 or 1) at a point on an 
endless ribbon; the ribbon passes through the machine, and it can 
only look at the bit that is currently inside the machine. 

Each state is actually a few commands long, starting with an IF, 
testing whether the current bit it sees is a 0 or a 1. Depending on the 
result of that test, the machine will... 


(1) change the bit or leave it as it is - 
(2) move the ribbon one bit-position left or right 
(3) change to a specified state (which may be the same state) 


The machine starts at some unknown point on the ribbon in state 1; it 
stops when its program puts it into state 0. 

The table, shown above in How A Turing Machine Works, demon- 
strates the logic for a Turing machine programmed to move rightward 
along a ribbon until it comes to the end of a string of ones; note that 
it continues to move rightward until it finds a string of ones - a sort of 
simple ‘zero-suppression’. 

Suppose you start with a ribbon reading 0000001100, with the 
machine sitting on the leftmost zero. Follow the program from state 
1; because the current bit is zero, you execute the three commands in 
the left side of the table: ‘write 0',’move right’ and ‘new state 1’. Now 
the machine is over the second zero and still in state 1. Continue simu- 
lating the task until you reach state 0 (with the machine stopped). 

Now try your hand at writing a program for a Turing machine: the 
new task is to move the ribbon rightward until you have found three 
consecutive zeros; change them to ones - however, don't change any 
other bits. 

Prizes are available for those who send in solutions, new thought- 
provoking Turing tasks (with or without solutions) and 
embellishments. 


Tips, arguments and ideas are gratefully received by: 
Wilf’s Programmers’ Workshop 

PC PLUS 

Beauford Court 

30 Monmouth Street 

Bath 

BA1 2BW 
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A ll our “plug in and go” Supra modems are built to the highest 
international Quality Standards and this allows us to offer a 


a PROHIBITED from direct 
Five Year Warranty. All the products are fully HAYES SU PR A V32b IS aoe “Soe 
compatible and support all international telephone networks. hoy colitis a 
The Supra offers the latest technological advances including MNP 10 for : 


poor quality telephone lines (especially good for worldwide travel) and 
V17/14400 bps Fax which doubles the speed of your faxes saving time 


FREE Technical 


and money. ~ 7 
The range offers all the latest technology to enhance the performance 
and reduce the ongoing cost of your modem, including V42 and MNP4 error co eee 
correction along with MNP5 and V42bis data compression. 
Data throughput of up to 57.6K Bps means that the modems can be V32 BIS INTERNAL CARD £259 ONLY & 
used for file transfer and remote support with the lowest possible telephone As | og aloe Sih ol ce a 
costs, especially good for LAN and BBS use. 10° V42 and V4dbis« Clase 1 & 2, V17 and group ll fax.” FREE Software For 
support. (V17, V29 & V27ter) 100% Hayes compatible « DOS or Windows 


Includes: Five Year Warranty, software and serial cable FREE 

A “ 
-NDES| 
ROCKET Sg. 


Two Years 

Standalone —_ Five Years 

Standalone —_ Five Years 

Standalone. _ Five Years 

Internal Five Years 

Five Years 
Seven Years 
Seven Years 
Seven Years 
Seven Years 

Two Years 

Five Years 

GVC PocketFax i |____ Pocket One Years 
Macronix Toshiba Notebook 179 Internal D slot Five Years e 

Delivery charges: £10.00 - 1 unit, £12.00 - 2 units, £15.00 - 3 to 5 units, 5 plus units to be confirmed (UK mainland). Next day delivery for Portable, Battery Powered palm sized Data Fax Modem « Data 

orders placed by 3.00pm. (subject to stock) All products include Fax or Comms Software (& Cable) and UK PSU. Please ask for Pricing at 14,400 bps or 57,600 bps with V42bis compression MNP 2- dp 
on Dos, windows and Mac versions. 5, V42 + V42bis * Class 2, Group III fax support (V29, V27ter) go 


© © | Group Ill Fax 
© © | V42 bis 
e@ ee} MNP2-5 


a 


S 


Includes two year warranty, serial cable, software, 9V battery, 


UK’'S BEST SELLING F, ‘AXES = WITH ALL THE LATEST F EATURES AC adaptor and carrying pouch. . y 
SAMSUNG 500 £249, 505 £299, SF2500 £379 POCKET DATA FAX ONLY £99 Siete nia 


ALSO AVAILABLE: MultiTech Pocket 1432 £449, Freee m CEI VANS Ay TR eS it as 
chisel Aa guarantee subject to the products being resaleable and BMI terms and conditions. 
a ou ae ACCESS AND 


Pace MicroLin Fx £175, USR Sportster £299 Bie Pee sera eer. ND 
VISA VISA CARDS 0 19 6 ! 81 87 


To place your order or ask for advice 
Buy any modem from us and we 
WELCOME B.M.I (UK) Ltd, Block 3, Burkes Close, Burkes Road, Beaconsfield, Bucks, HP9 1ES Fax No. 0494 6744§ 


on what fax/modem to purchase. Call 
will scan your Company Logo for our friendly experienced team NOW! 
FREE, allowing you to customise 


your faxes and we are so 
confident you will be satisfied with 
Our service we even offer a 14 day 
Money Back Guarantee, Buy now 
with complete peace of mind ! 


Terms: Credit Cards Accepted. Allow 5 days for personal cheques to clear. All prices are Exc. VAT and carriage. 
| Some of the modems featured are under BABT Approval, but are not yet approved. 14 day money back 
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